home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue67 / express / demo / DEMOU.dfm / DEMOU.txt
Encoding:
Text File  |  1997-08-01  |  1.7 KB  |  90 lines
  1. object Form1: TForm1
  2.   Left = 397
  3.   Top = 178
  4.   BorderStyle = bsDialog
  5.   Caption = 'TParser demo'
  6.   ClientHeight = 171
  7.   ClientWidth = 275
  8.   Font.Color = clBlack
  9.   Font.Height = -13
  10.   Font.Name = 'Arial'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   Scaled = False
  15.   OnCreate = FormCreate
  16.   TextHeight = 16
  17.   object CountLabel: TLabel
  18.     Left = 176
  19.     Top = 141
  20.     Width = 7
  21.     Height = 16
  22.     Caption = '1'
  23.   end
  24.   object Label1: TLabel
  25.     Left = 8
  26.     Top = 48
  27.     Width = 249
  28.     Height = 41
  29.     AutoSize = False
  30.     Caption = 
  31.       'Please enter a Pascal expression, but leave out the trailing '#39';'#39 +
  32.       ':'
  33.     WordWrap = True
  34.   end
  35.   object Label2: TLabel
  36.     Left = 8
  37.     Top = 8
  38.     Width = 249
  39.     Height = 41
  40.     AutoSize = False
  41.     Caption = 'See PARSER10.TXT for available functions and operators.'
  42.     WordWrap = True
  43.   end
  44.   object Edit1: TEdit
  45.     Left = 8
  46.     Top = 104
  47.     Width = 209
  48.     Height = 24
  49.     TabOrder = 0
  50.     Text = '(sin(1)^2*7)/(5*6+6)-pi'
  51.     OnKeyPress = Edit1KeyPress
  52.   end
  53.   object IterationEdit: TEdit
  54.     Left = 216
  55.     Top = 136
  56.     Width = 49
  57.     Height = 22
  58.     Font.Color = clBlack
  59.     Font.Height = -11
  60.     Font.Name = 'Arial'
  61.     Font.Style = []
  62.     ParentFont = False
  63.     TabOrder = 1
  64.     Text = '100000'
  65.     OnKeyPress = IterationEditKeyPress
  66.   end
  67.   object Button1: TButton
  68.     Left = 224
  69.     Top = 104
  70.     Width = 33
  71.     Height = 25
  72.     Caption = '&go!'
  73.     TabOrder = 2
  74.     OnClick = Button1Click
  75.   end
  76.   object Button2: TButton
  77.     Left = 64
  78.     Top = 136
  79.     Width = 97
  80.     Height = 25
  81.     Caption = '&Count me up!'
  82.     TabOrder = 3
  83.     OnClick = Button2Click
  84.   end
  85.   object Parser1: TParser
  86.     Left = 16
  87.     Top = 136
  88.   end
  89. end
  90.